(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[     85626,       2032]
NotebookOptionsPosition[     83311,       1961]
NotebookOutlinePosition[     83676,       1977]
CellTagsIndexPosition[     83633,       1974]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Convex Hull Illustration", "Title",
 CellChangeTimes->{{3.529570649100179*^9, 3.5295706656986084`*^9}, {
  3.530437614954375*^9, 3.5304376223799877`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
  "QHullDir", "=", "\"\<D:\\\\Skrivebord\\\\qhull-2011.1\\\\bin\\\\\>\""}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.53051458230787*^9, 3.530514604272709*^9}, {
  3.5305166617627335`*^9, 3.530516661918734*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"WorkingDir", "=", "\"\<D:\\\\Skrivebord\\\\Convex_Hull\\\\\>\""}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.5305146087499166`*^9, 3.530514619763536*^9}, {
  3.5305180083157034`*^9, 3.5305180085809035`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"R", "=", 
   RowBox[{
    RowBox[{"RotationMatrix", "[", 
     RowBox[{
      RowBox[{"\[Pi]", "/", "4"}], ",", 
      RowBox[{"{", 
       RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], "]"}], ".", 
    RowBox[{"RotationMatrix", "[", 
     RowBox[{
      RowBox[{"\[Pi]", "/", "5"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "]"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.5305990319696827`*^9, 3.530599058645729*^9}, {
  3.5305991110462217`*^9, 3.530599130717856*^9}, {3.5305993924857254`*^9, 
  3.5305993934529266`*^9}, {3.530599424387781*^9, 3.5305994244969816`*^9}, {
  3.5305995782003765`*^9, 3.5305995915696*^9}, {3.5305996706617393`*^9, 
  3.5305996777441516`*^9}, {3.5305997646207047`*^9, 3.5305997647611046`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"T", "=", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0.0", ",", "0.5"}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.5305997659623065`*^9, 3.5305997704707146`*^9}, {
  3.5305998108591857`*^9, 3.5305998114519863`*^9}, {3.530612867247364*^9, 
  3.530612871240971*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"points", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"R", ".", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "0.5"}], ",", 
         RowBox[{"-", "0.5"}], ",", 
         RowBox[{"-", "0.5"}]}], "}"}]}], "+", "T"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"R", ".", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "0.5"}], ",", 
         RowBox[{"-", "0.5"}], ",", "0.5"}], "}"}]}], "+", "T"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"R", ".", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "0.5"}], ",", "0.5", ",", 
         RowBox[{"-", "0.5"}]}], "}"}]}], "+", "T"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"R", ".", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "0.5"}], ",", "0.5", ",", "0.5"}], "}"}]}], "+", "T"}], 
     ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"R", ".", 
       RowBox[{"{", 
        RowBox[{"0.5", ",", 
         RowBox[{"-", "0.5"}], ",", 
         RowBox[{"-", "0.5"}]}], "}"}]}], "+", "T"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"R", ".", 
       RowBox[{"{", 
        RowBox[{"0.5", ",", 
         RowBox[{"-", "0.5"}], ",", "0.5"}], "}"}]}], "+", "T"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"R", ".", 
       RowBox[{"{", 
        RowBox[{"0.5", ",", "0.5", ",", 
         RowBox[{"-", "0.5"}]}], "}"}]}], "+", "T"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"R", ".", 
       RowBox[{"{", 
        RowBox[{"0.5", ",", "0.5", ",", "0.5"}], "}"}]}], "+", "T"}]}], 
    "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.5305154210513926`*^9, 3.5305154822035*^9}, {
  3.5305155717008567`*^9, 3.5305156479537907`*^9}, {3.530599045760107*^9, 
  3.5305990553697233`*^9}, {3.53059931896247*^9, 3.530599324441784*^9}, {
  3.530599751750682*^9, 3.5305997927319536`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"projPoints", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"points", "[", 
        RowBox[{"[", 
         RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", 
       RowBox[{"points", "[", 
        RowBox[{"[", 
         RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", 
       RowBox[{
        RowBox[{"Dimensions", "[", "points", "]"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.5305980898391557`*^9, 3.530598203313755*^9}, {
  3.5305982788334875`*^9, 3.530598283825496*^9}, {3.5306128304780993`*^9, 
  3.5306128420221195`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"str", "=", " ", 
   RowBox[{
    RowBox[{"ToString", "[", 
     RowBox[{
      RowBox[{"Dimensions", "[", "points", "]"}], "[", 
      RowBox[{"[", "2", "]"}], "]"}], "]"}], "<>", "\"\<\n\>\"", "<>", 
    RowBox[{"ToString", "[", 
     RowBox[{
      RowBox[{"Dimensions", "[", "points", "]"}], "[", 
      RowBox[{"[", "1", "]"}], "]"}], "]"}], "<>", "\"\<\n\>\""}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"For", "[", 
   RowBox[{
    RowBox[{"i", "=", "1"}], ",", " ", 
    RowBox[{"i", "\[LessEqual]", 
     RowBox[{
      RowBox[{"Dimensions", "[", "points", "]"}], "[", 
      RowBox[{"[", "1", "]"}], "]"}]}], ",", 
    RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"For", "[", 
      RowBox[{
       RowBox[{"j", "=", "1"}], ",", 
       RowBox[{"j", "\[LessEqual]", 
        RowBox[{
         RowBox[{"Dimensions", "[", "points", "]"}], "[", 
         RowBox[{"[", "2", "]"}], "]"}]}], ",", 
       RowBox[{"j", "++"}], ",", 
       RowBox[{"str", "=", 
        RowBox[{"str", "<>", 
         RowBox[{"ToString", "[", 
          RowBox[{"points", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "j"}], "]"}], "]"}], "]"}], "<>", 
         "\"\< \>\""}]}]}], "]"}], ";", "\[IndentingNewLine]", 
     RowBox[{"str", "=", 
      RowBox[{"str", "<>", "\"\<\n\>\""}]}], ";"}]}], "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.530515118499286*^9, 3.5305151268453007`*^9}, {
  3.5305151824308033`*^9, 3.5305151877192125`*^9}, {3.5305152262980804`*^9, 
  3.5305153939697447`*^9}, {3.5305157491355686`*^9, 3.530515986302785*^9}, {
  3.530516022338848*^9, 3.53051602890646*^9}, {3.530598388033679*^9, 
  3.5305983951472917`*^9}, {3.53059847962144*^9, 3.530598507529889*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"strProj", "=", " ", 
   RowBox[{
    RowBox[{"ToString", "[", 
     RowBox[{
      RowBox[{"Dimensions", "[", "projPoints", "]"}], "[", 
      RowBox[{"[", "2", "]"}], "]"}], "]"}], "<>", "\"\<\n\>\"", "<>", 
    RowBox[{"ToString", "[", 
     RowBox[{
      RowBox[{"Dimensions", "[", "projPoints", "]"}], "[", 
      RowBox[{"[", "1", "]"}], "]"}], "]"}], "<>", "\"\<\n\>\""}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"For", "[", 
   RowBox[{
    RowBox[{"i", "=", "1"}], ",", " ", 
    RowBox[{"i", "\[LessEqual]", 
     RowBox[{
      RowBox[{"Dimensions", "[", "projPoints", "]"}], "[", 
      RowBox[{"[", "1", "]"}], "]"}]}], ",", 
    RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"For", "[", 
      RowBox[{
       RowBox[{"j", "=", "1"}], ",", 
       RowBox[{"j", "\[LessEqual]", 
        RowBox[{
         RowBox[{"Dimensions", "[", "projPoints", "]"}], "[", 
         RowBox[{"[", "2", "]"}], "]"}]}], ",", 
       RowBox[{"j", "++"}], ",", 
       RowBox[{"strProj", "=", 
        RowBox[{"strProj", "<>", 
         RowBox[{"ToString", "[", 
          RowBox[{"projPoints", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "j"}], "]"}], "]"}], "]"}], "<>", 
         "\"\< \>\""}]}]}], "]"}], ";", "\[IndentingNewLine]", 
     RowBox[{"strProj", "=", 
      RowBox[{"strProj", "<>", "\"\<\n\>\""}]}], ";"}]}], "]"}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.530515118499286*^9, 3.5305151268453007`*^9}, {
  3.5305151824308033`*^9, 3.5305151877192125`*^9}, {3.5305152262980804`*^9, 
  3.5305153939697447`*^9}, {3.5305157491355686`*^9, 3.530515986302785*^9}, {
  3.530516022338848*^9, 3.53051602890646*^9}, {3.530598388033679*^9, 
  3.5305983951472917`*^9}, {3.53059847962144*^9, 3.530598551693567*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"strStream", " ", "=", " ", 
   RowBox[{"OpenWrite", "[", 
    RowBox[{"WorkingDir", "<>", "\"\<qhullInput.txt\>\""}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"WriteString", "[", 
   RowBox[{"strStream", ",", "str"}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Close", "[", "strStream", "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.5305148940664916`*^9, 3.530514923737744*^9}, 
   3.5305149634866133`*^9, {3.5305151328825116`*^9, 3.5305151338653135`*^9}, {
   3.530598575171608*^9, 3.5305985794928155`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"strStream", " ", "=", " ", 
   RowBox[{"OpenWrite", "[", 
    RowBox[{"WorkingDir", "<>", "\"\<qhullProjInput.txt\>\""}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"WriteString", "[", 
   RowBox[{"strStream", ",", "strProj"}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Close", "[", "strStream", "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.5305148940664916`*^9, 3.530514923737744*^9}, 
   3.5305149634866133`*^9, {3.5305151328825116`*^9, 3.5305151338653135`*^9}, {
   3.530598575171608*^9, 3.5305986062000628`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"cmd", "=", 
   RowBox[{
   "\"\<\>\"", "<>", "QHullDir", "<>", "\"\<qhull m TI \>\"", "<>", 
    "WorkingDir", "<>", "\"\<qhullInput.txt > \>\"", "<>", "WorkingDir", 
    "<>", "\"\<qhullOutput.txt\>\"", "<>", "\"\<\>\""}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Run", "[", "cmd", "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.5305166149986506`*^9, 3.5305166273226724`*^9}, {
   3.530516717808432*^9, 3.5305167219736395`*^9}, {3.530516765288915*^9, 
   3.530516797024171*^9}, {3.530516866347361*^9, 3.5305168916506057`*^9}, {
   3.5305169508316727`*^9, 3.530516964055296*^9}, {3.530517550156927*^9, 
   3.5305175651329536`*^9}, {3.530517763153616*^9, 3.530517767256423*^9}, 
   3.5305180306549425`*^9, {3.530518076909024*^9, 3.5305180915574493`*^9}, {
   3.530518166952382*^9, 3.530518169151986*^9}, {3.5305968199767065`*^9, 
   3.5305968369807367`*^9}, {3.5305968972978954`*^9, 
   3.5305969186231327`*^9}, {3.5305969844552484`*^9, 3.530597012051697*^9}, {
   3.530598625918497*^9, 3.5305986261056976`*^9}, 3.530598743324303*^9, 
   3.530598885580953*^9, {3.530779611726237*^9, 3.530779612319038*^9}, {
   3.5307796638237534`*^9, 3.530779664369755*^9}, {3.530782922479759*^9, 
   3.5307829232441607`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"cmd", "=", 
   RowBox[{
   "\"\<\>\"", "<>", "QHullDir", "<>", "\"\<qhull n TI \>\"", "<>", 
    "WorkingDir", "<>", "\"\<qhullInput.txt TO \>\"", "<>", "WorkingDir", 
    "<>", "\"\<qhullOutputText.txt\>\"", "<>", "\"\<\>\""}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Run", "[", "cmd", "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.5305166149986506`*^9, 3.5305166273226724`*^9}, {
   3.530516717808432*^9, 3.5305167219736395`*^9}, {3.530516765288915*^9, 
   3.530516797024171*^9}, {3.530516866347361*^9, 3.5305168916506057`*^9}, {
   3.5305169508316727`*^9, 3.530516964055296*^9}, {3.530517550156927*^9, 
   3.5305175651329536`*^9}, {3.530517763153616*^9, 3.530517767256423*^9}, 
   3.5305180306549425`*^9, {3.530518076909024*^9, 3.5305180915574493`*^9}, {
   3.530518166952382*^9, 3.530518169151986*^9}, {3.5305968199767065`*^9, 
   3.5305968369807367`*^9}, {3.5305968972978954`*^9, 
   3.5305969186231327`*^9}, {3.5305969844552484`*^9, 3.530597012051697*^9}, {
   3.530598625918497*^9, 3.5305986261056976`*^9}, 3.530598743324303*^9, 
   3.530598885580953*^9, {3.530602080940952*^9, 3.5306021563236*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"cmd", "=", 
   RowBox[{
   "\"\<\>\"", "<>", "QHullDir", "<>", "\"\<qhull QJ m TI \>\"", "<>", 
    "WorkingDir", "<>", "\"\<qhullProjInput.txt > \>\"", "<>", "WorkingDir", 
    "<>", "\"\<qhullProjOutput.txt\>\"", "<>", "\"\<\>\""}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Run", "[", "cmd", "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.5305166149986506`*^9, 3.5305166273226724`*^9}, {
   3.530516717808432*^9, 3.5305167219736395`*^9}, {3.530516765288915*^9, 
   3.530516797024171*^9}, {3.530516866347361*^9, 3.5305168916506057`*^9}, {
   3.5305169508316727`*^9, 3.530516964055296*^9}, {3.530517550156927*^9, 
   3.5305175651329536`*^9}, {3.530517763153616*^9, 3.530517767256423*^9}, 
   3.5305180306549425`*^9, {3.530518076909024*^9, 3.5305180915574493`*^9}, {
   3.530518166952382*^9, 3.530518169151986*^9}, {3.5305968199767065`*^9, 
   3.5305968369807367`*^9}, {3.5305968972978954`*^9, 
   3.5305969186231327`*^9}, {3.5305969844552484`*^9, 3.530597012051697*^9}, {
   3.530598625918497*^9, 3.530598641877325*^9}, 3.5305987413430996`*^9, {
   3.530598881540546*^9, 3.5305988954713707`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"cmd", "=", 
   RowBox[{
   "\"\<\>\"", "<>", "QHullDir", "<>", "\"\<qhull QJ n TI \>\"", "<>", 
    "WorkingDir", "<>", "\"\<qhullProjInput.txt TO \>\"", "<>", "WorkingDir", 
    "<>", "\"\<qhullProjOutputText.txt\>\"", "<>", "\"\<\>\""}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Run", "[", "cmd", "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.5305166149986506`*^9, 3.5305166273226724`*^9}, {
   3.530516717808432*^9, 3.5305167219736395`*^9}, {3.530516765288915*^9, 
   3.530516797024171*^9}, {3.530516866347361*^9, 3.5305168916506057`*^9}, {
   3.5305169508316727`*^9, 3.530516964055296*^9}, {3.530517550156927*^9, 
   3.5305175651329536`*^9}, {3.530517763153616*^9, 3.530517767256423*^9}, 
   3.5305180306549425`*^9, {3.530518076909024*^9, 3.5305180915574493`*^9}, {
   3.530518166952382*^9, 3.530518169151986*^9}, {3.5305968199767065`*^9, 
   3.5305968369807367`*^9}, {3.5305968972978954`*^9, 
   3.5305969186231327`*^9}, {3.5305969844552484`*^9, 3.530597012051697*^9}, {
   3.530598625918497*^9, 3.5305986261056976`*^9}, 3.530598743324303*^9, 
   3.530598885580953*^9, {3.530602080940952*^9, 3.5306021563236*^9}, {
   3.5306106293808784`*^9, 3.53061064888281*^9}, {3.5306106914864845`*^9, 
   3.5306106934676886`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"graphics", "=", 
   RowBox[{"Read", "[", 
    RowBox[{"WorkingDir", "<>", "\"\<qhullOutput.txt\>\""}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Close", "[", 
   RowBox[{"WorkingDir", "<>", "\"\<qhullOutput.txt\>\""}], "]"}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.530597142839492*^9, 3.5305971679243364`*^9}, {
   3.530597222274832*^9, 3.5305972360340557`*^9}, {3.530597270385316*^9, 
   3.530597292006954*^9}, 3.5305973489314537`*^9, {3.5305986648093653`*^9, 
   3.530598664996566*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"graphicsProj", "=", 
   RowBox[{"Read", "[", 
    RowBox[{"WorkingDir", "<>", "\"\<qhullProjOutput.txt\>\""}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Close", "[", 
   RowBox[{"WorkingDir", "<>", "\"\<qhullProjOutput.txt\>\""}], "]"}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.530597142839492*^9, 3.5305971679243364`*^9}, {
   3.530597222274832*^9, 3.5305972360340557`*^9}, {3.530597270385316*^9, 
   3.530597292006954*^9}, 3.5305973489314537`*^9, {3.5305986648093653`*^9, 
   3.530598682640197*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"arrows", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"Arrow", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
        RowBox[{"points", "[", 
         RowBox[{"[", "i", "]"}], "]"}]}], "}"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", 
       RowBox[{
        RowBox[{"Dimensions", "[", "points", "]"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.5305976867188473`*^9, 3.530597779679411*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"projArrows", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"Arrow", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
        RowBox[{"projPoints", "[", 
         RowBox[{"[", "i", "]"}], "]"}]}], "}"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", 
       RowBox[{
        RowBox[{"Dimensions", "[", "projPoints", "]"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.5305976867188473`*^9, 3.530597779679411*^9}, {
  3.5305982238589907`*^9, 3.5305982411906214`*^9}, {3.530598271891475*^9, 
  3.530598275760282*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"plane", "=", 
   RowBox[{"Polygon", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "1"}], ",", 
        RowBox[{"-", "1"}], ",", "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1", ",", 
        RowBox[{"-", "1"}], ",", "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1", ",", "1", ",", "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "1"}], ",", "1", ",", "0"}], "}"}]}], "}"}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.5307788746550264`*^9, 3.5307789248091145`*^9}, {
  3.530779053977341*^9, 3.5307790563485456`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Graphics3D", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"Green", ",", 
       RowBox[{"EdgeForm", "[", 
        RowBox[{"{", "Green", "}"}], "]"}], ",", 
       RowBox[{"Opacity", "[", "0.2", "]"}], ",", "graphics"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"Red", ",", 
       RowBox[{"Opacity", "[", "1.0", "]"}], ",", "arrows"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"Blue", ",", 
       RowBox[{"Opacity", "[", "0.3", "]"}], ",", "plane"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"Yellow", ",", 
       RowBox[{"Opacity", "[", "0.3", "]"}], ",", 
       RowBox[{"Sphere", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", "0.26"}], "]"}]}], 
      "}"}]}], "}"}], ",", 
   RowBox[{"Axes", "\[Rule]", "True"}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"x", ",", "y", ",", "z"}], "}"}]}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "0.5"}], ",", "1.5"}], "}"}]}], "}"}]}], ",", 
   RowBox[{"Lighting", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"ViewPoint", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"0", ",", 
      RowBox[{"-", "4"}], ",", "0.4"}], "}"}]}], ",", 
   RowBox[{"AxesEdge", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"1", ",", 
        RowBox[{"-", "1"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1", ",", 
        RowBox[{"-", "1"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]}], ",", 
   RowBox[{"Ticks", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "0.5"}], ",", "0", ",", "0.5"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "0.5"}], ",", "0", ",", "0.5"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "0.5"}], ",", "0", ",", "0.5", ",", "1", ",", "1.5"}], 
       "}"}]}], "}"}]}], ",", 
   RowBox[{"AxesOrigin", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "1"}], ",", 
      RowBox[{"-", "1"}], ",", 
      RowBox[{"-", "0.5"}]}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.5305971813247595`*^9, 3.530597214178417*^9}, {
   3.530597382487113*^9, 3.530597383469915*^9}, {3.530597543011395*^9, 
   3.5305975523714113`*^9}, {3.530597906148833*^9, 3.5305979262884684`*^9}, {
   3.5305982476490326`*^9, 3.5305982620010576`*^9}, {3.5305987057750373`*^9, 
   3.530598713543851*^9}, {3.5305998363652306`*^9, 3.53059984182524*^9}, {
   3.5306000177262435`*^9, 3.53060002689906*^9}, {3.5306046283330636`*^9, 
   3.5306047358978686`*^9}, {3.5306131249442167`*^9, 
   3.5306131440542502`*^9}, {3.5307788269969425`*^9, 3.5307788546557913`*^9}, 
   3.5307789497691584`*^9, {3.530778998503644*^9, 3.53077901332367*^9}, {
   3.530779069234168*^9, 3.530779126704669*^9}, {3.530779158045124*^9, 
   3.5307791940811872`*^9}, {3.53077929397055*^9, 3.530779315077387*^9}, {
   3.53077935095745*^9, 3.530779352049452*^9}, {3.5307795573289413`*^9, 
   3.5307795786073785`*^9}, {3.530779789896189*^9, 3.530779837125326*^9}, {
   3.5307798714888787`*^9, 3.5307799402225995`*^9}, {3.530780003636711*^9, 
   3.530780003823911*^9}, {3.5307800734936333`*^9, 3.530780108281695*^9}, {
   3.53078017696532*^9, 3.530780219693795*^9}, {3.530780301431241*^9, 
   3.5307803598377438`*^9}, {3.5307805009399266`*^9, 3.530780547719284*^9}, {
   3.530780610010194*^9, 3.5307806380902433`*^9}, {3.5307807325103564`*^9, 
   3.530780765332814*^9}, {3.5307810066979136`*^9, 3.5307810161827307`*^9}, {
   3.530781078706498*^9, 3.530781121029372*^9}, {3.530781155035889*^9, 
   3.530781175487525*^9}, {3.530781275740328*^9, 3.5307813818355713`*^9}, {
   3.530781417512834*^9, 3.530781505918189*^9}, {3.530781826670353*^9, 
   3.530781826873153*^9}, {3.530781886605658*^9, 3.530781899787681*^9}, {
   3.5307823874634485`*^9, 3.530782429271522*^9}, {3.530784374210602*^9, 
   3.5307844239746895`*^9}}],

Cell[BoxData[
 Graphics3DBox[{
   {RGBColor[0, 1, 0], Opacity[0.2], EdgeForm[RGBColor[0, 1, 0]], 
    Polygon3DBox[{{-0.110616, -0.140291, 1.3474}, {-0.110616, -0.847398, 
     0.640291}, {-0.698401, -0.275336, 0.0682294}}], 
    Polygon3DBox[{{-0.110616, -0.847398, 0.640291}, {-0.110616, -0.140291, 
     1.3474}, {0.698401, -0.431771, 0.224664}}], 
    Polygon3DBox[{{-0.110616, -0.847398, 0.640291}, {0.110616, 
     0.140291, -0.347398}, {-0.698401, -0.275336, 0.0682294}}], 
    Polygon3DBox[{{0.110616, 0.140291, -0.347398}, {-0.110616, -0.847398, 
     0.640291}, {0.698401, -0.431771, 0.224664}}], 
    Polygon3DBox[{{-0.698401, 0.431771, 0.775336}, {-0.110616, -0.140291, 
     1.3474}, {-0.698401, -0.275336, 0.0682294}}], 
    Polygon3DBox[{{-0.110616, -0.140291, 1.3474}, {-0.698401, 0.431771, 
     0.775336}, {0.110616, 0.847398, 0.359709}}], 
    Polygon3DBox[{{0.110616, 0.140291, -0.347398}, {-0.698401, 0.431771, 
     0.775336}, {-0.698401, -0.275336, 0.0682294}}], 
    Polygon3DBox[{{-0.698401, 0.431771, 0.775336}, {0.110616, 
     0.140291, -0.347398}, {0.110616, 0.847398, 0.359709}}], 
    Polygon3DBox[{{-0.110616, -0.140291, 1.3474}, {0.698401, 0.275336, 
     0.931771}, {0.698401, -0.431771, 0.224664}}], 
    Polygon3DBox[{{0.698401, 0.275336, 0.931771}, {-0.110616, -0.140291, 
     1.3474}, {0.110616, 0.847398, 0.359709}}], 
    Polygon3DBox[{{0.698401, -0.431771, 0.224664}, {0.698401, 0.275336, 
     0.931771}, {0.110616, 0.847398, 0.359709}, {0.110616, 
     0.140291, -0.347398}}]}, 
   {RGBColor[1, 0, 0], Opacity[1.], 
    Arrow3DBox[{{0, 0, 0}, {-0.6984011233337103, -0.27533615807315837`, 
      0.06822937688661085}}], 
    Arrow3DBox[{{0, 0, 0}, {-0.11061587104123716`, -0.8473975608908426, 
      0.6402907797042952}}], 
    Arrow3DBox[{{0, 0, 0}, {-0.6984011233337103, 0.43177062311338915`, 
      0.7753361580731584}}], 
    Arrow3DBox[{{0, 0, 0}, {-0.11061587104123716`, -0.1402907797042951, 
      1.3473975608908426`}}], 
    Arrow3DBox[{{0, 0, 0}, {0.11061587104123716`, 
      0.1402907797042951, -0.3473975608908426}}], 
    Arrow3DBox[{{0, 0, 0}, {0.6984011233337103, -0.43177062311338915`, 
      0.2246638419268417}}], 
    Arrow3DBox[{{0, 0, 0}, {0.11061587104123716`, 0.8473975608908426, 
      0.3597092202957049}}], 
    Arrow3DBox[{{0, 0, 0}, {0.6984011233337103, 0.27533615807315837`, 
      0.9317706231133891}}]}, 
   {RGBColor[0, 0, 1], Opacity[0.3], 
    Polygon3DBox[{{-1, -1, 0}, {1, -1, 0}, {1, 1, 0}, {-1, 1, 0}}]}, 
   {RGBColor[1, 1, 0], Opacity[0.3], SphereBox[{0, 0, 0}, 0.26]}},
  Axes->True,
  AxesEdge->{{1, -1}, {1, -1}, {-1, 1}},
  AxesLabel->{
    FormBox["x", TraditionalForm], 
    FormBox["y", TraditionalForm], 
    FormBox["z", TraditionalForm]},
  AxesOrigin->{-1, -1, -0.5},
  Lighting->Automatic,
  PlotRange->{{-1, 1}, {-1, 1}, {-0.5, 1.5}},
  Ticks->{{{-0.5, 
      FormBox[
       RowBox[{"-", "0.5`"}], TraditionalForm]}, {0, 
      FormBox["0", TraditionalForm]}, {0.5, 
      FormBox["0.5`", TraditionalForm]}}, {{-0.5, 
      FormBox[
       RowBox[{"-", "0.5`"}], TraditionalForm]}, {0, 
      FormBox["0", TraditionalForm]}, {0.5, 
      FormBox["0.5`", TraditionalForm]}}, {{-0.5, 
      FormBox[
       RowBox[{"-", "0.5`"}], TraditionalForm]}, {0, 
      FormBox["0", TraditionalForm]}, {0.5, 
      FormBox["0.5`", TraditionalForm]}, {1, 
      FormBox["1", TraditionalForm]}, {1.5, 
      FormBox["1.5`", TraditionalForm]}}},
  ViewPoint->{0, -4, 0.4}]], "Output",
 CellChangeTimes->{3.5307867452364435`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Graphics3D", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"Green", ",", 
       RowBox[{"EdgeForm", "[", 
        RowBox[{"{", "Green", "}"}], "]"}], ",", 
       RowBox[{"Opacity", "[", "0.6", "]"}], ",", "graphics"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"Blue", ",", 
       RowBox[{"Opacity", "[", "0.3", "]"}], ",", "plane"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"Purple", ",", 
       RowBox[{"EdgeForm", "[", 
        RowBox[{"{", "Purple", "}"}], "]"}], ",", 
       RowBox[{"Opacity", "[", "0.4", "]"}], ",", "graphicsProj"}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"Axes", "\[Rule]", "True"}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"x", ",", "y", ",", "z"}], "}"}]}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "0.5"}], ",", "1.5"}], "}"}]}], "}"}]}], ",", 
   RowBox[{"Lighting", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"ViewPoint", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"0", ",", 
      RowBox[{"-", "4"}], ",", "0.4"}], "}"}]}], ",", 
   RowBox[{"AxesEdge", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"1", ",", 
        RowBox[{"-", "1"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1", ",", 
        RowBox[{"-", "1"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]}], ",", 
   RowBox[{"Ticks", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "0.5"}], ",", "0", ",", "0.5"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "0.5"}], ",", "0", ",", "0.5"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "0.5"}], ",", "0", ",", "0.5", ",", "1", ",", "1.5"}], 
       "}"}]}], "}"}]}], ",", 
   RowBox[{"AxesOrigin", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "1"}], ",", 
      RowBox[{"-", "1"}], ",", 
      RowBox[{"-", "0.5"}]}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.5305971813247595`*^9, 3.530597214178417*^9}, {
   3.530597382487113*^9, 3.530597383469915*^9}, {3.530597543011395*^9, 
   3.5305975523714113`*^9}, {3.530597906148833*^9, 3.5305979262884684`*^9}, {
   3.5305982476490326`*^9, 3.5305982620010576`*^9}, {3.5305987057750373`*^9, 
   3.530598713543851*^9}, {3.5305998363652306`*^9, 3.53059984182524*^9}, {
   3.5306000177262435`*^9, 3.53060002689906*^9}, {3.5306046283330636`*^9, 
   3.5306047358978686`*^9}, {3.5306131249442167`*^9, 
   3.5306131440542502`*^9}, {3.5307788269969425`*^9, 3.5307788546557913`*^9}, 
   3.5307789497691584`*^9, {3.530778998503644*^9, 3.53077901332367*^9}, {
   3.530779069234168*^9, 3.530779126704669*^9}, {3.530779158045124*^9, 
   3.5307791940811872`*^9}, {3.53077929397055*^9, 3.530779315077387*^9}, {
   3.53077935095745*^9, 3.530779352049452*^9}, {3.5307795573289413`*^9, 
   3.5307795786073785`*^9}, {3.530779789896189*^9, 3.530779837125326*^9}, {
   3.5307798714888787`*^9, 3.5307799402225995`*^9}, {3.530780003636711*^9, 
   3.530780003823911*^9}, {3.5307800734936333`*^9, 3.530780108281695*^9}, {
   3.53078017696532*^9, 3.530780219693795*^9}, {3.530780301431241*^9, 
   3.5307803598377438`*^9}, {3.5307805009399266`*^9, 3.530780547719284*^9}, {
   3.530780610010194*^9, 3.5307806380902433`*^9}, {3.5307807325103564`*^9, 
   3.530780765332814*^9}, {3.5307810066979136`*^9, 3.5307810161827307`*^9}, {
   3.530781078706498*^9, 3.530781121029372*^9}, {3.530781155035889*^9, 
   3.530781175487525*^9}, {3.530781275740328*^9, 3.5307813818355713`*^9}, {
   3.530781417512834*^9, 3.530781505918189*^9}, {3.5307815709859037`*^9, 
   3.5307815712043037`*^9}, {3.5307816327464123`*^9, 
   3.5307816825572996`*^9}, {3.5307817238661723`*^9, 
   3.5307818151887326`*^9}, {3.5307818521295977`*^9, 3.530781879180045*^9}, {
   3.5307820622307663`*^9, 3.5307820809975996`*^9}}],

Cell[BoxData[
 Graphics3DBox[{
   {RGBColor[0, 1, 0], Opacity[0.6], EdgeForm[RGBColor[0, 1, 0]], 
    Polygon3DBox[{{-0.110616, -0.140291, 1.3474}, {-0.110616, -0.847398, 
     0.640291}, {-0.698401, -0.275336, 0.0682294}}], 
    Polygon3DBox[{{-0.110616, -0.847398, 0.640291}, {-0.110616, -0.140291, 
     1.3474}, {0.698401, -0.431771, 0.224664}}], 
    Polygon3DBox[{{-0.110616, -0.847398, 0.640291}, {0.110616, 
     0.140291, -0.347398}, {-0.698401, -0.275336, 0.0682294}}], 
    Polygon3DBox[{{0.110616, 0.140291, -0.347398}, {-0.110616, -0.847398, 
     0.640291}, {0.698401, -0.431771, 0.224664}}], 
    Polygon3DBox[{{-0.698401, 0.431771, 0.775336}, {-0.110616, -0.140291, 
     1.3474}, {-0.698401, -0.275336, 0.0682294}}], 
    Polygon3DBox[{{-0.110616, -0.140291, 1.3474}, {-0.698401, 0.431771, 
     0.775336}, {0.110616, 0.847398, 0.359709}}], 
    Polygon3DBox[{{0.110616, 0.140291, -0.347398}, {-0.698401, 0.431771, 
     0.775336}, {-0.698401, -0.275336, 0.0682294}}], 
    Polygon3DBox[{{-0.698401, 0.431771, 0.775336}, {0.110616, 
     0.140291, -0.347398}, {0.110616, 0.847398, 0.359709}}], 
    Polygon3DBox[{{-0.110616, -0.140291, 1.3474}, {0.698401, 0.275336, 
     0.931771}, {0.698401, -0.431771, 0.224664}}], 
    Polygon3DBox[{{0.698401, 0.275336, 0.931771}, {-0.110616, -0.140291, 
     1.3474}, {0.110616, 0.847398, 0.359709}}], 
    Polygon3DBox[{{0.698401, -0.431771, 0.224664}, {0.698401, 0.275336, 
     0.931771}, {0.110616, 0.847398, 0.359709}, {0.110616, 
     0.140291, -0.347398}}]}, 
   {RGBColor[0, 0, 1], Opacity[0.3], 
    Polygon3DBox[{{-1, -1, 0}, {1, -1, 0}, {1, 1, 0}, {-1, 1, 0}}]}, 
   {RGBColor[0.5, 0, 0.5], Opacity[0.4], EdgeForm[RGBColor[0.5, 0, 0.5]], 
    Polygon3DBox[{{0.110616, 0.847398, 0.}, {-0.698401, 0.431771, 
     0.}, {-0.698401, -0.275336, 0.}}], 
    Polygon3DBox[{{0.698401, 0.275336, 0.}, {0.110616, 0.847398, 0.}, {
     0.698401, -0.431771, 0.}}], 
    Polygon3DBox[{{0.698401, 0.275336, 0.}, {-0.698401, 0.431771, 0.}, {
     0.110616, 0.847398, 0.}}], 
    Polygon3DBox[{{-0.110616, -0.847398, 0.}, {0.110616, 0.847398, 
     0.}, {-0.698401, -0.275336, 0.}}], 
    Polygon3DBox[{{0.110616, 0.847398, 0.}, {-0.110616, -0.847398, 0.}, {
     0.698401, -0.431771, 0.}}], 
    Polygon3DBox[{{-0.698401, 0.431771, 0.}, {-0.110616, -0.140291, 
     0.}, {-0.698401, -0.275336, 0.}}], 
    Polygon3DBox[{{-0.110616, -0.140291, 0.}, {-0.110616, -0.847398, 
     0.}, {-0.698401, -0.275336, 0.}}], 
    Polygon3DBox[{{-0.110616, -0.847398, 0.}, {-0.110616, -0.140291, 0.}, {
     0.698401, -0.431771, 0.}}], 
    Polygon3DBox[{{-0.110616, -0.140291, 0.}, {0.698401, 0.275336, 0.}, {
     0.698401, -0.431771, 0.}}], 
    Polygon3DBox[{{0.698401, 0.275336, 0.}, {-0.110616, -0.140291, 
     0.}, {-0.698401, 0.431771, 0.}}]}},
  Axes->True,
  AxesEdge->{{1, -1}, {1, -1}, {-1, 1}},
  AxesLabel->{
    FormBox["x", TraditionalForm], 
    FormBox["y", TraditionalForm], 
    FormBox["z", TraditionalForm]},
  AxesOrigin->{-1, -1, -0.5},
  Lighting->Automatic,
  PlotRange->{{-1, 1}, {-1, 1}, {-0.5, 1.5}},
  Ticks->{{{-0.5, 
      FormBox[
       RowBox[{"-", "0.5`"}], TraditionalForm]}, {0, 
      FormBox["0", TraditionalForm]}, {0.5, 
      FormBox["0.5`", TraditionalForm]}}, {{-0.5, 
      FormBox[
       RowBox[{"-", "0.5`"}], TraditionalForm]}, {0, 
      FormBox["0", TraditionalForm]}, {0.5, 
      FormBox["0.5`", TraditionalForm]}}, {{-0.5, 
      FormBox[
       RowBox[{"-", "0.5`"}], TraditionalForm]}, {0, 
      FormBox["0", TraditionalForm]}, {0.5, 
      FormBox["0.5`", TraditionalForm]}, {1, 
      FormBox["1", TraditionalForm]}, {1.5, 
      FormBox["1.5`", TraditionalForm]}}},
  ViewPoint->{0, -4, 0.4}]], "Output",
 CellChangeTimes->{3.5307867452832437`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Graphics3D", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"Blue", ",", 
       RowBox[{"Opacity", "[", "0.3", "]"}], ",", "plane"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"Purple", ",", 
       RowBox[{"EdgeForm", "[", 
        RowBox[{"{", "Purple", "}"}], "]"}], ",", 
       RowBox[{"Opacity", "[", "0.4", "]"}], ",", "graphicsProj"}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{"Blue", ",", 
       RowBox[{"Opacity", "[", "1.0", "]"}], ",", "projArrows"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"Yellow", ",", 
       RowBox[{"Opacity", "[", "0.2", "]"}], ",", 
       RowBox[{"Cylinder", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", 
             RowBox[{"-", "0.01"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", "0.01"}], "}"}]}], "}"}], ",", 
         "0.69"}], "]"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"Axes", "\[Rule]", "True"}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"x", ",", "y", ",", "z"}], "}"}]}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "0.5"}], ",", "1.5"}], "}"}]}], "}"}]}], ",", 
   RowBox[{"Lighting", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"ViewPoint", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"0", ",", "0", ",", "4"}], "}"}]}], ",", 
   RowBox[{"AxesEdge", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]}], ",", 
   RowBox[{"Ticks", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "0.5"}], ",", "0", ",", "0.5"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "0.5"}], ",", "0", ",", "0.5"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "0.5"}], ",", "0", ",", "0.5", ",", "1", ",", "1.5"}], 
       "}"}]}], "}"}]}], ",", 
   RowBox[{"AxesOrigin", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "1"}], ",", 
      RowBox[{"-", "1"}], ",", 
      RowBox[{"-", "0.5"}]}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.5305971813247595`*^9, 3.530597214178417*^9}, {
   3.530597382487113*^9, 3.530597383469915*^9}, {3.530597543011395*^9, 
   3.5305975523714113`*^9}, {3.530597906148833*^9, 3.5305979262884684`*^9}, {
   3.5305982476490326`*^9, 3.5305982620010576`*^9}, {3.5305987057750373`*^9, 
   3.530598713543851*^9}, {3.5305998363652306`*^9, 3.53059984182524*^9}, {
   3.5306000177262435`*^9, 3.53060002689906*^9}, {3.5306046283330636`*^9, 
   3.5306047358978686`*^9}, {3.5306131249442167`*^9, 
   3.5306131440542502`*^9}, {3.5307788269969425`*^9, 3.5307788546557913`*^9}, 
   3.5307789497691584`*^9, {3.530778998503644*^9, 3.53077901332367*^9}, {
   3.530779069234168*^9, 3.530779126704669*^9}, {3.530779158045124*^9, 
   3.5307791940811872`*^9}, {3.53077929397055*^9, 3.530779315077387*^9}, {
   3.53077935095745*^9, 3.530779352049452*^9}, {3.5307795573289413`*^9, 
   3.5307795786073785`*^9}, {3.530779789896189*^9, 3.530779837125326*^9}, {
   3.5307798714888787`*^9, 3.5307799402225995`*^9}, {3.530780003636711*^9, 
   3.530780003823911*^9}, {3.5307800734936333`*^9, 3.530780108281695*^9}, {
   3.53078017696532*^9, 3.530780219693795*^9}, {3.530780301431241*^9, 
   3.5307803598377438`*^9}, {3.5307805009399266`*^9, 3.530780547719284*^9}, {
   3.530780610010194*^9, 3.5307806380902433`*^9}, {3.5307807325103564`*^9, 
   3.530780765332814*^9}, {3.5307810066979136`*^9, 3.5307810161827307`*^9}, {
   3.530781078706498*^9, 3.530781121029372*^9}, {3.530781155035889*^9, 
   3.530781175487525*^9}, {3.530781275740328*^9, 3.5307813818355713`*^9}, {
   3.530781417512834*^9, 3.530781505918189*^9}, {3.5307815709859037`*^9, 
   3.5307815712043037`*^9}, {3.5307816327464123`*^9, 
   3.5307816825572996`*^9}, {3.5307817238661723`*^9, 
   3.5307818151887326`*^9}, {3.5307818521295977`*^9, 3.530781879180045*^9}, {
   3.5307819414241543`*^9, 3.530781942438156*^9}, {3.5307819824522266`*^9, 
   3.530782019876692*^9}, {3.5307820969096274`*^9, 3.5307821277664814`*^9}, {
   3.530782608840372*^9, 3.5307827335478272`*^9}, {3.530785741116203*^9, 
   3.5307857613182383`*^9}}],

Cell[BoxData[
 Graphics3DBox[{
   {RGBColor[0, 0, 1], Opacity[0.3], 
    Polygon3DBox[{{-1, -1, 0}, {1, -1, 0}, {1, 1, 0}, {-1, 1, 0}}]}, 
   {RGBColor[0.5, 0, 0.5], Opacity[0.4], EdgeForm[RGBColor[0.5, 0, 0.5]], 
    Polygon3DBox[{{0.110616, 0.847398, 0.}, {-0.698401, 0.431771, 
     0.}, {-0.698401, -0.275336, 0.}}], 
    Polygon3DBox[{{0.698401, 0.275336, 0.}, {0.110616, 0.847398, 0.}, {
     0.698401, -0.431771, 0.}}], 
    Polygon3DBox[{{0.698401, 0.275336, 0.}, {-0.698401, 0.431771, 0.}, {
     0.110616, 0.847398, 0.}}], 
    Polygon3DBox[{{-0.110616, -0.847398, 0.}, {0.110616, 0.847398, 
     0.}, {-0.698401, -0.275336, 0.}}], 
    Polygon3DBox[{{0.110616, 0.847398, 0.}, {-0.110616, -0.847398, 0.}, {
     0.698401, -0.431771, 0.}}], 
    Polygon3DBox[{{-0.698401, 0.431771, 0.}, {-0.110616, -0.140291, 
     0.}, {-0.698401, -0.275336, 0.}}], 
    Polygon3DBox[{{-0.110616, -0.140291, 0.}, {-0.110616, -0.847398, 
     0.}, {-0.698401, -0.275336, 0.}}], 
    Polygon3DBox[{{-0.110616, -0.847398, 0.}, {-0.110616, -0.140291, 0.}, {
     0.698401, -0.431771, 0.}}], 
    Polygon3DBox[{{-0.110616, -0.140291, 0.}, {0.698401, 0.275336, 0.}, {
     0.698401, -0.431771, 0.}}], 
    Polygon3DBox[{{0.698401, 0.275336, 0.}, {-0.110616, -0.140291, 
     0.}, {-0.698401, 0.431771, 0.}}]}, 
   {RGBColor[0, 0, 1], Opacity[1.], 
    Arrow3DBox[{{0, 0, 0}, {-0.6984011233337103, -0.27533615807315837`, 0}}], 
    Arrow3DBox[{{0, 0, 0}, {-0.11061587104123716`, -0.8473975608908426, 0}}], 
    Arrow3DBox[{{0, 0, 0}, {-0.6984011233337103, 0.43177062311338915`, 0}}], 
    Arrow3DBox[{{0, 0, 0}, {-0.11061587104123716`, -0.1402907797042951, 0}}], 
    Arrow3DBox[{{0, 0, 0}, {0.11061587104123716`, 0.1402907797042951, 0}}], 
    Arrow3DBox[{{0, 0, 0}, {0.6984011233337103, -0.43177062311338915`, 0}}], 
    Arrow3DBox[{{0, 0, 0}, {0.11061587104123716`, 0.8473975608908426, 0}}], 
    Arrow3DBox[{{0, 0, 0}, {0.6984011233337103, 0.27533615807315837`, 0}}]}, 
   {RGBColor[1, 1, 0], Opacity[0.2], 
    CylinderBox[{{0, 0, -0.01}, {0, 0, 0.01}}, 0.69]}},
  Axes->True,
  AxesEdge->{{-1, 1}, {-1, 1}, {-1, 1}},
  AxesLabel->{
    FormBox["x", TraditionalForm], 
    FormBox["y", TraditionalForm], 
    FormBox["z", TraditionalForm]},
  AxesOrigin->{-1, -1, -0.5},
  Lighting->Automatic,
  PlotRange->{{-1, 1}, {-1, 1}, {-0.5, 1.5}},
  Ticks->{{{-0.5, 
      FormBox[
       RowBox[{"-", "0.5`"}], TraditionalForm]}, {0, 
      FormBox["0", TraditionalForm]}, {0.5, 
      FormBox["0.5`", TraditionalForm]}}, {{-0.5, 
      FormBox[
       RowBox[{"-", "0.5`"}], TraditionalForm]}, {0, 
      FormBox["0", TraditionalForm]}, {0.5, 
      FormBox["0.5`", TraditionalForm]}}, {{-0.5, 
      FormBox[
       RowBox[{"-", "0.5`"}], TraditionalForm]}, {0, 
      FormBox["0", TraditionalForm]}, {0.5, 
      FormBox["0.5`", TraditionalForm]}, {1, 
      FormBox["1", TraditionalForm]}, {1.5, 
      FormBox["1.5`", TraditionalForm]}}},
  ViewPoint->{0, 0, 4}]], "Output",
 CellChangeTimes->{3.530786745345644*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"data", "=", 
   RowBox[{"ReadList", "[", 
    RowBox[{
     RowBox[{"WorkingDir", "<>", "\"\<qhullOutputText.txt\>\""}], ",", 
     "Number"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.530597142839492*^9, 3.5305971679243364`*^9}, {
   3.530597222274832*^9, 3.5305972360340557`*^9}, {3.530597270385316*^9, 
   3.530597292006954*^9}, 3.5305973489314537`*^9, {3.5305986648093653`*^9, 
   3.530598664996566*^9}, {3.530602212314867*^9, 3.5306022728086696`*^9}, {
   3.5306023330802374`*^9, 3.5306023505210686`*^9}, {3.530602384404328*^9, 
   3.5306023851375294`*^9}, {3.530610761234207*^9, 3.5306107636054115`*^9}, 
   3.530611063157138*^9, 3.530611135666065*^9, 3.530613034261257*^9, 
   3.530614608678056*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"normals", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"data", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"i", "*", 
           RowBox[{"data", "[", 
            RowBox[{"[", "1", "]"}], "]"}]}], "+", "j", "+", "2"}], "]"}], 
        "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"j", ",", "1", ",", 
         RowBox[{
          RowBox[{"data", "[", 
           RowBox[{"[", "1", "]"}], "]"}], "-", "1"}]}], "}"}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "0", ",", 
       RowBox[{
        RowBox[{"data", "[", 
         RowBox[{"[", "2", "]"}], "]"}], "-", "1"}]}], "}"}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.530604775865139*^9, 3.530604778158343*^9}, {
   3.5306048086095963`*^9, 3.5306048155048084`*^9}, {3.530604887608135*^9, 
   3.530604973517486*^9}, {3.5306051225757475`*^9, 3.530605176146242*^9}, {
   3.530605233242342*^9, 3.5306053021944633`*^9}, {3.5306053836266065`*^9, 
   3.530605453015528*^9}, {3.530605483763182*^9, 3.530605517771242*^9}, {
   3.5306055516389017`*^9, 3.530605586177362*^9}, 3.53060562480303*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"offsets", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"data", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"i", "*", 
           RowBox[{"data", "[", 
            RowBox[{"[", "1", "]"}], "]"}]}], "+", "j", "+", "2"}], "]"}], 
        "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"j", ",", 
         RowBox[{"data", "[", 
          RowBox[{"[", "1", "]"}], "]"}], ",", 
         RowBox[{"data", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "0", ",", 
       RowBox[{
        RowBox[{"data", "[", 
         RowBox[{"[", "2", "]"}], "]"}], "-", "1"}]}], "}"}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.530604775865139*^9, 3.530604778158343*^9}, {
  3.5306048086095963`*^9, 3.5306048155048084`*^9}, {3.530604887608135*^9, 
  3.530604973517486*^9}, {3.5306051225757475`*^9, 3.530605176146242*^9}, {
  3.530605233242342*^9, 3.5306053021944633`*^9}, {3.5306053836266065`*^9, 
  3.530605453015528*^9}, {3.530605483763182*^9, 3.530605517771242*^9}, {
  3.5306055516389017`*^9, 3.5306056216986246`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"projNormalsTemp", "=", 
   RowBox[{"Take", "[", 
    RowBox[{"normals", ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", 
       RowBox[{"data", "[", 
        RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", 
       RowBox[{
        RowBox[{"data", "[", 
         RowBox[{"[", "1", "]"}], "]"}], "-", "2"}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"len", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"Norm", "[", 
      RowBox[{
       RowBox[{"projNormalsTemp", "[", 
        RowBox[{"[", "i", "]"}], "]"}], ",", "2"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", 
       RowBox[{"data", "[", 
        RowBox[{"[", "2", "]"}], "]"}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"projNormals", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"projNormalsTemp", "[", 
       RowBox[{"[", "i", "]"}], "]"}], "/", 
      RowBox[{"len", "[", 
       RowBox[{"[", "i", "]"}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", 
       RowBox[{"data", "[", 
        RowBox[{"[", "2", "]"}], "]"}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"projOffsets", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"offsets", "[", 
       RowBox[{"[", 
        RowBox[{"i", ",", "1"}], "]"}], "]"}], "/", 
      RowBox[{"len", "[", 
       RowBox[{"[", "i", "]"}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", 
       RowBox[{"data", "[", 
        RowBox[{"[", "2", "]"}], "]"}]}], "}"}]}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.530604775865139*^9, 3.530604778158343*^9}, {
   3.5306048086095963`*^9, 3.5306048155048084`*^9}, {3.530604887608135*^9, 
   3.530604973517486*^9}, {3.5306051225757475`*^9, 3.530605176146242*^9}, {
   3.530605233242342*^9, 3.5306053021944633`*^9}, {3.5306053836266065`*^9, 
   3.530605453015528*^9}, {3.530605483763182*^9, 3.530605517771242*^9}, {
   3.5306055516389017`*^9, 3.530605586177362*^9}, 3.53060562480303*^9, {
   3.5306057900742693`*^9, 3.530605790994671*^9}, {3.530606316866087*^9, 
   3.530606365413372*^9}, {3.530606498294406*^9, 3.5306065784941463`*^9}, {
   3.5306074391461325`*^9, 3.530607474261794*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"graphicsProjNormals", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"Arrow", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"Flatten", "[", 
          RowBox[{"Append", "[", 
           RowBox[{
            RowBox[{"projNormals", "[", 
             RowBox[{"[", "i", "]"}], "]"}], ",", 
            RowBox[{"{", "0", "}"}]}], "]"}], "]"}], "*", 
         RowBox[{"(", 
          RowBox[{"-", 
           RowBox[{"projOffsets", "[", 
            RowBox[{"[", "i", "]"}], "]"}]}], ")"}]}], ",", 
        RowBox[{
         RowBox[{"Flatten", "[", 
          RowBox[{"Append", "[", 
           RowBox[{
            RowBox[{"projNormals", "[", 
             RowBox[{"[", "i", "]"}], "]"}], ",", 
            RowBox[{"{", "0", "}"}]}], "]"}], "]"}], "*", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", 
            RowBox[{"projOffsets", "[", 
             RowBox[{"[", "i", "]"}], "]"}]}], "+", "1.0"}], ")"}]}]}], "}"}],
       "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", 
       RowBox[{"data", "[", 
        RowBox[{"[", "2", "]"}], "]"}]}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.530784655369896*^9, 3.5307848823970947`*^9}, {
   3.5307849274031734`*^9, 3.5307849331127834`*^9}, 3.5307850575854025`*^9, 
   3.5307851664735937`*^9, {3.530785806917118*^9, 3.530785807213519*^9}, {
   3.530785849349193*^9, 3.5307858497079935`*^9}, {3.5307859083484964`*^9, 
   3.530785909190898*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"graphicsNormals", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"Arrow", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"normals", "[", 
          RowBox[{"[", "i", "]"}], "]"}], "*", 
         RowBox[{"(", 
          RowBox[{"-", 
           RowBox[{"offsets", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ")"}]}], ",", 
        RowBox[{
         RowBox[{"normals", "[", 
          RowBox[{"[", "i", "]"}], "]"}], "*", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", 
            RowBox[{"offsets", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "1"}], "]"}], "]"}]}], "+", "1.0"}], 
          ")"}]}]}], "}"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", 
       RowBox[{"data", "[", 
        RowBox[{"[", "2", "]"}], "]"}]}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.530784655369896*^9, 3.5307848823970947`*^9}, {
   3.5307849274031734`*^9, 3.5307849331127834`*^9}, 3.5307850575854025`*^9, {
   3.5307851664735937`*^9, 3.530785210793271*^9}, {3.530785300618229*^9, 
   3.530785339072297*^9}, {3.530785418398436*^9, 3.5307854442008815`*^9}, {
   3.530785815543934*^9, 3.530785815809134*^9}, {3.530785854044801*^9, 
   3.5307858541228013`*^9}, {3.5307859111409016`*^9, 3.5307859121861033`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"str", "=", " ", 
   RowBox[{
    RowBox[{"ToString", "[", 
     RowBox[{
      RowBox[{"Dimensions", "[", "projNormals", "]"}], "[", 
      RowBox[{"[", "2", "]"}], "]"}], "]"}], "<>", "\"\< 1\n0 0\n\>\"", "<>", 
    RowBox[{"ToString", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"Dimensions", "[", "projNormals", "]"}], "[", 
       RowBox[{"[", "2", "]"}], "]"}], "+", "1"}], "]"}], "<>", "\"\<\n\>\"", 
    "<>", 
    RowBox[{"ToString", "[", 
     RowBox[{
      RowBox[{"Dimensions", "[", "projNormals", "]"}], "[", 
      RowBox[{"[", "1", "]"}], "]"}], "]"}], "<>", "\"\<\n\>\""}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"For", "[", 
   RowBox[{
    RowBox[{"i", "=", "1"}], ",", " ", 
    RowBox[{"i", "\[LessEqual]", 
     RowBox[{
      RowBox[{"Dimensions", "[", "projNormals", "]"}], "[", 
      RowBox[{"[", "1", "]"}], "]"}]}], ",", 
    RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"For", "[", 
      RowBox[{
       RowBox[{"j", "=", "1"}], ",", 
       RowBox[{"j", "\[LessEqual]", 
        RowBox[{
         RowBox[{"Dimensions", "[", "projNormals", "]"}], "[", 
         RowBox[{"[", "2", "]"}], "]"}]}], ",", 
       RowBox[{"j", "++"}], ",", 
       RowBox[{"str", "=", 
        RowBox[{"str", "<>", 
         RowBox[{"ToString", "[", 
          RowBox[{"AccountingForm", "[", 
           RowBox[{
            RowBox[{"projNormals", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", 
            RowBox[{"NumberSigns", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{"\"\<-\>\"", ",", "\"\<\>\""}], "}"}]}]}], "]"}], "]"}],
          "<>", "\"\< \>\""}]}]}], "]"}], ";", "\[IndentingNewLine]", 
     RowBox[{"str", "=", 
      RowBox[{"str", "<>", 
       RowBox[{"ToString", "[", 
        RowBox[{"AccountingForm", "[", 
         RowBox[{
          RowBox[{"projOffsets", "[", 
           RowBox[{"[", "i", "]"}], "]"}], ",", 
          RowBox[{"NumberSigns", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"\"\<-\>\"", ",", "\"\<\>\""}], "}"}]}]}], "]"}], "]"}], 
       "<>", "\"\<\n\>\""}]}], ";"}]}], "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.530515118499286*^9, 3.5305151268453007`*^9}, {
  3.5305151824308033`*^9, 3.5305151877192125`*^9}, {3.5305152262980804`*^9, 
  3.5305153939697447`*^9}, {3.5305157491355686`*^9, 3.530515986302785*^9}, {
  3.530516022338848*^9, 3.53051602890646*^9}, {3.530598388033679*^9, 
  3.5305983951472917`*^9}, {3.53059847962144*^9, 3.530598507529889*^9}, {
  3.530607058855858*^9, 3.530607064003867*^9}, {3.5306074772725997`*^9, 
  3.530607512887462*^9}, {3.5306075969897118`*^9, 3.530607610858136*^9}, {
  3.530607667718503*^9, 3.5306076962977533`*^9}, {3.5306077311482143`*^9, 
  3.530607775873493*^9}, {3.5306078208327723`*^9, 3.5306078382736025`*^9}, {
  3.5306079679254303`*^9, 3.5306079680970306`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"strStream", " ", "=", " ", 
   RowBox[{"OpenWrite", "[", 
    RowBox[{"WorkingDir", "<>", "\"\<qhullIntersectionInput.txt\>\""}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"WriteString", "[", 
   RowBox[{"strStream", ",", "str"}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Close", "[", "strStream", "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.5305148940664916`*^9, 3.530514923737744*^9}, 
   3.5305149634866133`*^9, {3.5305151328825116`*^9, 3.5305151338653135`*^9}, {
   3.530598575171608*^9, 3.5305985794928155`*^9}, {3.530607071101879*^9, 
   3.530607072661882*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"cmd", "=", 
   RowBox[{
   "\"\<\>\"", "<>", "QHullDir", "<>", "\"\<qhalf QJ Fp TI \>\"", "<>", 
    "WorkingDir", "<>", "\"\<qhullIntersectionInput.txt TO \>\"", "<>", 
    "WorkingDir", "<>", "\"\<qhullIntersectionOutputText.txt\>\"", "<>", 
    "\"\<\>\""}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Run", "[", "cmd", "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.5305166149986506`*^9, 3.5305166273226724`*^9}, {
   3.530516717808432*^9, 3.5305167219736395`*^9}, {3.530516765288915*^9, 
   3.530516797024171*^9}, {3.530516866347361*^9, 3.5305168916506057`*^9}, {
   3.5305169508316727`*^9, 3.530516964055296*^9}, {3.530517550156927*^9, 
   3.5305175651329536`*^9}, {3.530517763153616*^9, 3.530517767256423*^9}, 
   3.5305180306549425`*^9, {3.530518076909024*^9, 3.5305180915574493`*^9}, {
   3.530518166952382*^9, 3.530518169151986*^9}, {3.5305968199767065`*^9, 
   3.5305968369807367`*^9}, {3.5305968972978954`*^9, 
   3.5305969186231327`*^9}, {3.5305969844552484`*^9, 3.530597012051697*^9}, {
   3.530598625918497*^9, 3.5305986261056976`*^9}, 3.530598743324303*^9, 
   3.530598885580953*^9, {3.5306070805554957`*^9, 3.5306070975283256`*^9}, 
   3.5306078769304705`*^9, 3.5306079965826807`*^9, {3.5306084316915665`*^9, 
   3.5306084529388037`*^9}, {3.530611536383969*^9, 3.530611587255658*^9}, {
   3.5306116533841743`*^9, 3.5306116538989754`*^9}, {3.530611982981553*^9, 
   3.5306119830907536`*^9}, {3.530612166687476*^9, 3.530612183878706*^9}, {
   3.5306155259175787`*^9, 3.530615546525215*^9}, {3.5306156017181115`*^9, 
   3.5306156020613127`*^9}, {3.5306168544879866`*^9, 3.530616855205588*^9}, {
   3.5306173344852295`*^9, 3.5306173347816305`*^9}, {3.530620423867087*^9, 
   3.530620424069887*^9}, {3.530620534455681*^9, 3.530620534876882*^9}, {
   3.530620591557592*^9, 3.5306205918539925`*^9}, {3.5306207078401957`*^9, 
   3.530620708152197*^9}, 3.530621064987223*^9, {3.530621108812007*^9, 
   3.5306211140380163`*^9}, {3.530621154878888*^9, 3.5306211551908884`*^9}, {
   3.5306213445533524`*^9, 3.5306213511987324`*^9}, {3.5306214345521765`*^9, 
   3.5306214479994*^9}, 3.530622125621146*^9, {3.530622305939218*^9, 
   3.530622315462332*^9}, {3.53062306699905*^9, 3.530623067412074*^9}, {
   3.530623105894947*^9, 3.5306231068383975`*^9}, {3.530623212442092*^9, 
   3.530623212951121*^9}, {3.5306247700206947`*^9, 3.5306247705666957`*^9}, {
   3.530625370279761*^9, 3.5306253705597773`*^9}, {3.5306254083817034`*^9, 
   3.530625408726715*^9}, {3.5306255721130095`*^9, 3.5306255722610188`*^9}, {
   3.5306256340781517`*^9, 3.5306256349252005`*^9}, {3.5306257117814846`*^9, 
   3.5306257315626144`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"data", "=", 
   RowBox[{"ReadList", "[", 
    RowBox[{
     RowBox[{"WorkingDir", "<>", "\"\<qhullIntersectionOutputText.txt\>\""}], 
     ",", "Number"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.530597142839492*^9, 3.5305971679243364`*^9}, {
   3.530597222274832*^9, 3.5305972360340557`*^9}, {3.530597270385316*^9, 
   3.530597292006954*^9}, 3.5305973489314537`*^9, {3.5305986648093653`*^9, 
   3.530598664996566*^9}, {3.530602212314867*^9, 3.5306022728086696`*^9}, {
   3.5306023330802374`*^9, 3.5306023505210686`*^9}, {3.530602384404328*^9, 
   3.5306023851375294`*^9}, {3.530610761234207*^9, 3.5306107636054115`*^9}, 
   3.530611063157138*^9, 3.530611135666065*^9, {3.5306121141465836`*^9, 
   3.530612115566186*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"indices", "=", 
   RowBox[{
    RowBox[{"Sort", "[", 
     RowBox[{"DeleteDuplicates", "[", 
      RowBox[{"Flatten", "[", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"data", "[", 
            RowBox[{"[", 
             RowBox[{
              RowBox[{"i", "*", "3"}], "+", "j", "+", "2"}], "]"}], "]"}], 
           ",", 
           RowBox[{"{", 
            RowBox[{"j", ",", "1", ",", "2"}], "}"}]}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "0", ",", 
           RowBox[{
            RowBox[{"data", "[", 
             RowBox[{"[", "1", "]"}], "]"}], "-", "1"}]}], "}"}]}], "]"}], 
       "]"}], "]"}], "]"}], "+", "1"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.530604775865139*^9, 3.530604778158343*^9}, {
   3.5306048086095963`*^9, 3.5306048155048084`*^9}, {3.530604887608135*^9, 
   3.530604973517486*^9}, {3.5306051225757475`*^9, 3.530605176146242*^9}, {
   3.530605233242342*^9, 3.5306053021944633`*^9}, {3.5306053836266065`*^9, 
   3.530605453015528*^9}, {3.530605483763182*^9, 3.530605517771242*^9}, {
   3.5306055516389017`*^9, 3.530605586177362*^9}, 3.53060562480303*^9, {
   3.53061223883146*^9, 3.5306122852103415`*^9}, {3.530612361088875*^9, 
   3.5306124685262637`*^9}, {3.5306168782780285`*^9, 
   3.5306169578849683`*^9}, {3.5306175910029125`*^9, 
   3.5306176199021654`*^9}, {3.5306207649362965`*^9, 3.53062080683797*^9}, {
   3.5306223802336216`*^9, 3.5306223864683576`*^9}, {3.5306224397922344`*^9, 
   3.5306224728618155`*^9}, 3.5306227350261526`*^9, {3.530622770699675*^9, 
   3.530622843262187*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"vertices", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"data", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"i", "*", "2"}], "+", "j", "+", "2"}], "]"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"j", ",", "1", ",", "2"}], "}"}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "0", ",", 
       RowBox[{
        RowBox[{"data", "[", 
         RowBox[{"[", "2", "]"}], "]"}], "-", "1"}]}], "}"}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.5306258042703333`*^9, 3.530625972505182*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"str", "=", " ", 
   RowBox[{
    RowBox[{"ToString", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"Dimensions", "[", "vertices", "]"}], "[", 
       RowBox[{"[", "2", "]"}], "]"}], "+", "1"}], "]"}], "<>", "\"\<\n\>\"", 
    "<>", 
    RowBox[{"ToString", "[", 
     RowBox[{
      RowBox[{"Dimensions", "[", "vertices", "]"}], "[", 
      RowBox[{"[", "1", "]"}], "]"}], "]"}], "<>", "\"\<\n\>\""}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"For", "[", 
   RowBox[{
    RowBox[{"i", "=", "1"}], ",", " ", 
    RowBox[{"i", "\[LessEqual]", 
     RowBox[{
      RowBox[{"Dimensions", "[", "vertices", "]"}], "[", 
      RowBox[{"[", "1", "]"}], "]"}]}], ",", 
    RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"For", "[", 
      RowBox[{
       RowBox[{"j", "=", "1"}], ",", 
       RowBox[{"j", "\[LessEqual]", 
        RowBox[{
         RowBox[{"Dimensions", "[", "vertices", "]"}], "[", 
         RowBox[{"[", "2", "]"}], "]"}]}], ",", 
       RowBox[{"j", "++"}], ",", 
       RowBox[{"str", "=", 
        RowBox[{"str", "<>", 
         RowBox[{"ToString", "[", 
          RowBox[{"AccountingForm", "[", 
           RowBox[{
            RowBox[{"N", "[", 
             RowBox[{"vertices", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "j"}], "]"}], "]"}], "]"}], ",", 
            RowBox[{"NumberSigns", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{"\"\<-\>\"", ",", "\"\<\>\""}], "}"}]}]}], "]"}], "]"}],
          "<>", "\"\< \>\""}]}]}], "]"}], ";", "\[IndentingNewLine]", 
     RowBox[{"str", "=", 
      RowBox[{"str", "<>", "\"\< 0\n\>\""}]}], ";"}]}], "]"}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.530515118499286*^9, 3.5305151268453007`*^9}, {
  3.5305151824308033`*^9, 3.5305151877192125`*^9}, {3.5305152262980804`*^9, 
  3.5305153939697447`*^9}, {3.5305157491355686`*^9, 3.530515986302785*^9}, {
  3.530516022338848*^9, 3.53051602890646*^9}, {3.530598388033679*^9, 
  3.5305983951472917`*^9}, {3.53059847962144*^9, 3.530598507529889*^9}, {
  3.530607058855858*^9, 3.530607064003867*^9}, {3.5306074772725997`*^9, 
  3.530607512887462*^9}, {3.5306075969897118`*^9, 3.530607610858136*^9}, {
  3.530607667718503*^9, 3.5306076962977533`*^9}, {3.5306077311482143`*^9, 
  3.530607775873493*^9}, {3.5306078208327723`*^9, 3.5306078382736025`*^9}, {
  3.5306079679254303`*^9, 3.5306079680970306`*^9}, {3.5306124830342894`*^9, 
  3.530612510240737*^9}, {3.530612564435232*^9, 3.5306125646224327`*^9}, {
  3.5306126312969494`*^9, 3.530612651249385*^9}, {3.5306238014008226`*^9, 
  3.5306238239740624`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"strStream", " ", "=", " ", 
   RowBox[{"OpenWrite", "[", 
    RowBox[{"WorkingDir", "<>", "\"\<qhullResultInput.txt\>\""}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"WriteString", "[", 
   RowBox[{"strStream", ",", "str"}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Close", "[", "strStream", "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.5305148940664916`*^9, 3.530514923737744*^9}, 
   3.5305149634866133`*^9, {3.5305151328825116`*^9, 3.5305151338653135`*^9}, {
   3.530598575171608*^9, 3.5305985794928155`*^9}, {3.530607071101879*^9, 
   3.530607072661882*^9}, {3.530612674181425*^9, 3.5306126748522263`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"cmd", "=", 
   RowBox[{
   "\"\<\>\"", "<>", "QHullDir", "<>", "\"\<qhull QJ m TI \>\"", "<>", 
    "WorkingDir", "<>", "\"\<qhullResultInput.txt > \>\"", "<>", "WorkingDir",
     "<>", "\"\<qhullResultOutput.txt\>\"", "<>", "\"\<\>\""}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Run", "[", "cmd", "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.5305166149986506`*^9, 3.5305166273226724`*^9}, {
   3.530516717808432*^9, 3.5305167219736395`*^9}, {3.530516765288915*^9, 
   3.530516797024171*^9}, {3.530516866347361*^9, 3.5305168916506057`*^9}, {
   3.5305169508316727`*^9, 3.530516964055296*^9}, {3.530517550156927*^9, 
   3.5305175651329536`*^9}, {3.530517763153616*^9, 3.530517767256423*^9}, 
   3.5305180306549425`*^9, {3.530518076909024*^9, 3.5305180915574493`*^9}, {
   3.530518166952382*^9, 3.530518169151986*^9}, {3.5305968199767065`*^9, 
   3.5305968369807367`*^9}, {3.5305968972978954`*^9, 
   3.5305969186231327`*^9}, {3.5305969844552484`*^9, 3.530597012051697*^9}, {
   3.530598625918497*^9, 3.5305986261056976`*^9}, 3.530598743324303*^9, 
   3.530598885580953*^9, {3.530612698065067*^9, 3.530612701699873*^9}, {
   3.5306147977503877`*^9, 3.530614811650012*^9}, {3.530616894798457*^9, 
   3.530616932285323*^9}, 3.530622932218584*^9, {3.5306238343792806`*^9, 
   3.5306238355180826`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"graphicsIntersection", "=", 
   RowBox[{"Read", "[", 
    RowBox[{"WorkingDir", "<>", "\"\<qhullResultOutput.txt\>\""}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Close", "[", 
   RowBox[{"WorkingDir", "<>", "\"\<qhullResultOutput.txt\>\""}], "]"}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.530597142839492*^9, 3.5305971679243364`*^9}, {
   3.530597222274832*^9, 3.5305972360340557`*^9}, {3.530597270385316*^9, 
   3.530597292006954*^9}, 3.5305973489314537`*^9, {3.5305986648093653`*^9, 
   3.530598664996566*^9}, {3.5306071016779327`*^9, 3.530607107325143*^9}, {
   3.530608036518751*^9, 3.5306080388743553`*^9}, {3.5306115190991383`*^9, 
   3.5306115231083455`*^9}, {3.5306127076590834`*^9, 3.5306127156306973`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Graphics3D", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"Green", ",", 
       RowBox[{"EdgeForm", "[", 
        RowBox[{"{", "Green", "}"}], "]"}], ",", 
       RowBox[{"Opacity", "[", "0.6", "]"}], ",", "graphics"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"Blue", ",", 
       RowBox[{"Opacity", "[", "0.3", "]"}], ",", "plane"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"Blue", ",", 
       RowBox[{"Opacity", "[", "1.0", "]"}], ",", "graphicsIntersection"}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"Red", ",", 
       RowBox[{"Opacity", "[", "1.0", "]"}], ",", "graphicsNormals"}], 
      "}"}]}], "}"}], ",", 
   RowBox[{"Axes", "\[Rule]", "True"}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"x", ",", "y", ",", "z"}], "}"}]}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "1.5"}], ",", "1.5"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "1.5"}], ",", "1.5"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "1.0"}], ",", "1.5"}], "}"}]}], "}"}]}], ",", 
   RowBox[{"Lighting", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"ViewPoint", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"0", ",", 
      RowBox[{"-", "4"}], ",", "0.4"}], "}"}]}], ",", 
   RowBox[{"AxesEdge", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"1", ",", 
        RowBox[{"-", "1"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1", ",", 
        RowBox[{"-", "1"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]}], ",", 
   RowBox[{"Ticks", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "0.5"}], ",", "0", ",", "0.5"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "0.5"}], ",", "0", ",", "0.5"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "0.5"}], ",", "0", ",", "0.5", ",", "1", ",", "1.5"}], 
       "}"}]}], "}"}]}], ",", 
   RowBox[{"AxesOrigin", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "1"}], ",", 
      RowBox[{"-", "1"}], ",", 
      RowBox[{"-", "0.5"}]}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.5305971813247595`*^9, 3.530597214178417*^9}, {
   3.530597382487113*^9, 3.530597383469915*^9}, {3.530597543011395*^9, 
   3.5305975523714113`*^9}, {3.530597906148833*^9, 3.5305979262884684`*^9}, {
   3.5305982476490326`*^9, 3.5305982620010576`*^9}, {3.5305987057750373`*^9, 
   3.530598713543851*^9}, {3.5305998363652306`*^9, 3.53059984182524*^9}, {
   3.5306000177262435`*^9, 3.53060002689906*^9}, {3.5306046283330636`*^9, 
   3.5306047358978686`*^9}, {3.5306131249442167`*^9, 
   3.5306131440542502`*^9}, {3.5307788269969425`*^9, 3.5307788546557913`*^9}, 
   3.5307789497691584`*^9, {3.530778998503644*^9, 3.53077901332367*^9}, {
   3.530779069234168*^9, 3.530779126704669*^9}, {3.530779158045124*^9, 
   3.5307791940811872`*^9}, {3.53077929397055*^9, 3.530779315077387*^9}, {
   3.53077935095745*^9, 3.530779352049452*^9}, {3.5307795573289413`*^9, 
   3.5307795786073785`*^9}, {3.530779789896189*^9, 3.530779837125326*^9}, {
   3.5307798714888787`*^9, 3.5307799402225995`*^9}, {3.530780003636711*^9, 
   3.530780003823911*^9}, {3.5307800734936333`*^9, 3.530780108281695*^9}, {
   3.53078017696532*^9, 3.530780219693795*^9}, {3.530780301431241*^9, 
   3.5307803598377438`*^9}, {3.5307805009399266`*^9, 3.530780547719284*^9}, {
   3.530780610010194*^9, 3.5307806380902433`*^9}, {3.5307807325103564`*^9, 
   3.530780765332814*^9}, {3.5307810066979136`*^9, 3.5307810161827307`*^9}, {
   3.530781078706498*^9, 3.530781121029372*^9}, {3.530781155035889*^9, 
   3.530781175487525*^9}, {3.530781275740328*^9, 3.5307813818355713`*^9}, {
   3.530781417512834*^9, 3.530781505918189*^9}, {3.5307815709859037`*^9, 
   3.5307815712043037`*^9}, {3.5307816327464123`*^9, 
   3.5307816825572996`*^9}, {3.5307817238661723`*^9, 
   3.5307818151887326`*^9}, {3.5307818521295977`*^9, 3.530781879180045*^9}, {
   3.5307820622307663`*^9, 3.5307820809975996`*^9}, {3.530782231073174*^9, 
   3.5307822494500065`*^9}, {3.5307865787908745`*^9, 3.530786620411747*^9}}],

Cell[BoxData[
 Graphics3DBox[{
   {RGBColor[0, 1, 0], Opacity[0.6], EdgeForm[RGBColor[0, 1, 0]], 
    Polygon3DBox[{{-0.110616, -0.140291, 1.3474}, {-0.110616, -0.847398, 
     0.640291}, {-0.698401, -0.275336, 0.0682294}}], 
    Polygon3DBox[{{-0.110616, -0.847398, 0.640291}, {-0.110616, -0.140291, 
     1.3474}, {0.698401, -0.431771, 0.224664}}], 
    Polygon3DBox[{{-0.110616, -0.847398, 0.640291}, {0.110616, 
     0.140291, -0.347398}, {-0.698401, -0.275336, 0.0682294}}], 
    Polygon3DBox[{{0.110616, 0.140291, -0.347398}, {-0.110616, -0.847398, 
     0.640291}, {0.698401, -0.431771, 0.224664}}], 
    Polygon3DBox[{{-0.698401, 0.431771, 0.775336}, {-0.110616, -0.140291, 
     1.3474}, {-0.698401, -0.275336, 0.0682294}}], 
    Polygon3DBox[{{-0.110616, -0.140291, 1.3474}, {-0.698401, 0.431771, 
     0.775336}, {0.110616, 0.847398, 0.359709}}], 
    Polygon3DBox[{{0.110616, 0.140291, -0.347398}, {-0.698401, 0.431771, 
     0.775336}, {-0.698401, -0.275336, 0.0682294}}], 
    Polygon3DBox[{{-0.698401, 0.431771, 0.775336}, {0.110616, 
     0.140291, -0.347398}, {0.110616, 0.847398, 0.359709}}], 
    Polygon3DBox[{{-0.110616, -0.140291, 1.3474}, {0.698401, 0.275336, 
     0.931771}, {0.698401, -0.431771, 0.224664}}], 
    Polygon3DBox[{{0.698401, 0.275336, 0.931771}, {-0.110616, -0.140291, 
     1.3474}, {0.110616, 0.847398, 0.359709}}], 
    Polygon3DBox[{{0.698401, -0.431771, 0.224664}, {0.698401, 0.275336, 
     0.931771}, {0.110616, 0.847398, 0.359709}, {0.110616, 
     0.140291, -0.347398}}]}, 
   {RGBColor[0, 0, 1], Opacity[0.3], 
    Polygon3DBox[{{-1, -1, 0}, {1, -1, 0}, {1, 1, 0}, {-1, 1, 0}}]}, 
   {RGBColor[0, 0, 1], Opacity[1.], 
    Polygon3DBox[{{0.110616, 0.487688, 0.}, {0.467562, -0.207107, 
     0.}, {-0.565592, -0.207107, 0.}}], 
    Polygon3DBox[{{-0.364015, 0.00001166, 0.}, {0.110616, 0.487688, 
     0.}, {-0.565592, -0.207107, 0.}}], 
    Polygon3DBox[{{0.110616, 0.487688, 0.}, {-0.364015, 0.00001166, 0.}, {
     0.467562, -0.207107, 0.}}], 
    Polygon3DBox[{{0.467562, -0.207107, 0.}, {0.00001204, -0.207107, 
     0.}, {-0.565592, -0.207107, 0.}}], 
    Polygon3DBox[{{0.00001204, -0.207107, 0.}, {-0.364015, 0.00001166, 
     0.}, {-0.565592, -0.207107, 0.}}], 
    Polygon3DBox[{{-0.364015, 0.00001166, 0.}, {0.00001204, -0.207107, 0.}, {
     0.467562, -0.207107, 0.}}]}, 
   {RGBColor[1, 0, 0], Opacity[1.], 
    Arrow3DBox[{{-0.5726334123222806, -0.2941865776253577, 
     0.2941857455426729}, {-1.3816507207318658`, -0.7098137975521366, 
     0.7098117899018381}}], 
    Arrow3DBox[{{0.4620175447175474, -0.44965868023330785`, 
     0.4496574084104906}, {1.0498028519288696`, -1.0217208638517956`, 
     1.0217179739978586`}}], 
    Arrow3DBox[{{-5.7857503865739986`*^-8, -0.1035534778767892, \
-0.1035534908362646}, {-4.52932894908434*^-7, -0.8106602148169035, \
-0.8106603162691322}}], 
    Arrow3DBox[{{-1.625884732931938*^-17, -0.10355349999999992`, \
-0.10355349999999992`}, {-1.2728108415220347`*^-16, -0.8106602811865473, \
-0.8106602811865473}}], 
    Arrow3DBox[{{-0.5726338818153975, -0.29418570246800935`, 
     0.2941858688846161}, {-1.3816517765415246`, -0.7098116464213595, 
     0.7098120479515654}}], 
    Arrow3DBox[{{-7.095188189293503*^-7, 0.6035544045063888, 
     0.6035530234296388}, {-1.5407713762957698`*^-6, 1.3106619947078253`, 
     1.310658995599883}}], 
    Arrow3DBox[{{-0.1257681954265789, 
     0.12240365811063281`, -0.12240372735261591`}, {-0.7135536877612064, 
     0.6944647758048839, -0.6944651686535864}}], 
    Arrow3DBox[{{-0.12576817541793334`, 
     0.12240373215899132`, -0.12240373215899132`}, {-0.7135534826296402, 
     0.6944651067622937, -0.6944651067622937}}], 
    Arrow3DBox[{{0.46201837028854253`, -0.4496577659297808, 
     0.4496577659297808}, {1.0498046031137451`, -1.0217186650048515`, 
     1.0217186650048515`}}], 
    Arrow3DBox[{{9.765701799875638*^-7, 0.6035542938907928, 
     0.603553290479793}, {2.1206925523660728`*^-6, 1.310661662860797, 
     1.3106594838814694`}}], 
    Arrow3DBox[{{0.23638417437128034`, 
     0.12144057106819107`, -0.12144057106819107`}, {1.0454015805005537`, 
     0.537067108105868, -0.537067108105868}}]}},
  Axes->True,
  AxesEdge->{{1, -1}, {1, -1}, {-1, 1}},
  AxesLabel->{
    FormBox["x", TraditionalForm], 
    FormBox["y", TraditionalForm], 
    FormBox["z", TraditionalForm]},
  AxesOrigin->{-1, -1, -0.5},
  Lighting->Automatic,
  PlotRange->{{-1.5, 1.5}, {-1.5, 1.5}, {-1., 1.5}},
  Ticks->{{{-0.5, 
      FormBox[
       RowBox[{"-", "0.5`"}], TraditionalForm]}, {0, 
      FormBox["0", TraditionalForm]}, {0.5, 
      FormBox["0.5`", TraditionalForm]}}, {{-0.5, 
      FormBox[
       RowBox[{"-", "0.5`"}], TraditionalForm]}, {0, 
      FormBox["0", TraditionalForm]}, {0.5, 
      FormBox["0.5`", TraditionalForm]}}, {{-0.5, 
      FormBox[
       RowBox[{"-", "0.5`"}], TraditionalForm]}, {0, 
      FormBox["0", TraditionalForm]}, {0.5, 
      FormBox["0.5`", TraditionalForm]}, {1, 
      FormBox["1", TraditionalForm]}, {1.5, 
      FormBox["1.5`", TraditionalForm]}}},
  ViewPoint->{0, -4, 0.4}]], "Output",
 CellChangeTimes->{3.530786745844845*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Graphics3D", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"Blue", ",", 
       RowBox[{"Opacity", "[", "0.3", "]"}], ",", "plane"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"Purple", ",", 
       RowBox[{"EdgeForm", "[", 
        RowBox[{"{", "Purple", "}"}], "]"}], ",", 
       RowBox[{"Opacity", "[", "0.4", "]"}], ",", "graphicsProj"}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{"Blue", ",", 
       RowBox[{"Opacity", "[", "1.0", "]"}], ",", "graphicsIntersection"}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"Yellow", ",", 
       RowBox[{"Opacity", "[", "1.0", "]"}], ",", "graphicsProjNormals"}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"Yellow", ",", 
       RowBox[{"Opacity", "[", "0.2", "]"}], ",", 
       RowBox[{"Cylinder", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", 
             RowBox[{"-", "0.01"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", "0.01"}], "}"}]}], "}"}], ",", 
         "0.21"}], "]"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"Axes", "\[Rule]", "True"}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"x", ",", "y", ",", "z"}], "}"}]}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "1.5"}], ",", "1.5"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "1.5"}], ",", "2.0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "0.5"}], ",", "1.5"}], "}"}]}], "}"}]}], ",", 
   RowBox[{"Lighting", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"ViewPoint", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"0", ",", "0", ",", "4"}], "}"}]}], ",", 
   RowBox[{"AxesEdge", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]}], ",", 
   RowBox[{"Ticks", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "0.5"}], ",", "0", ",", "0.5"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "0.5"}], ",", "0", ",", "0.5"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "0.5"}], ",", "0", ",", "0.5", ",", "1", ",", "1.5"}], 
       "}"}]}], "}"}]}], ",", 
   RowBox[{"AxesOrigin", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "1"}], ",", 
      RowBox[{"-", "1"}], ",", 
      RowBox[{"-", "0.5"}]}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.5305971813247595`*^9, 3.530597214178417*^9}, {
   3.530597382487113*^9, 3.530597383469915*^9}, {3.530597543011395*^9, 
   3.5305975523714113`*^9}, {3.530597906148833*^9, 3.5305979262884684`*^9}, {
   3.5305982476490326`*^9, 3.5305982620010576`*^9}, {3.5305987057750373`*^9, 
   3.530598713543851*^9}, {3.5305998363652306`*^9, 3.53059984182524*^9}, {
   3.5306000177262435`*^9, 3.53060002689906*^9}, {3.5306046283330636`*^9, 
   3.5306047358978686`*^9}, {3.5306131249442167`*^9, 
   3.5306131440542502`*^9}, {3.5307788269969425`*^9, 3.5307788546557913`*^9}, 
   3.5307789497691584`*^9, {3.530778998503644*^9, 3.53077901332367*^9}, {
   3.530779069234168*^9, 3.530779126704669*^9}, {3.530779158045124*^9, 
   3.5307791940811872`*^9}, {3.53077929397055*^9, 3.530779315077387*^9}, {
   3.53077935095745*^9, 3.530779352049452*^9}, {3.5307795573289413`*^9, 
   3.5307795786073785`*^9}, {3.530779789896189*^9, 3.530779837125326*^9}, {
   3.5307798714888787`*^9, 3.5307799402225995`*^9}, {3.530780003636711*^9, 
   3.530780003823911*^9}, {3.5307800734936333`*^9, 3.530780108281695*^9}, {
   3.53078017696532*^9, 3.530780219693795*^9}, {3.530780301431241*^9, 
   3.5307803598377438`*^9}, {3.5307805009399266`*^9, 3.530780547719284*^9}, {
   3.530780610010194*^9, 3.5307806380902433`*^9}, {3.5307807325103564`*^9, 
   3.530780765332814*^9}, {3.5307810066979136`*^9, 3.5307810161827307`*^9}, {
   3.530781078706498*^9, 3.530781121029372*^9}, {3.530781155035889*^9, 
   3.530781175487525*^9}, {3.530781275740328*^9, 3.5307813818355713`*^9}, {
   3.530781417512834*^9, 3.530781505918189*^9}, {3.5307815709859037`*^9, 
   3.5307815712043037`*^9}, {3.5307816327464123`*^9, 
   3.5307816825572996`*^9}, {3.5307817238661723`*^9, 
   3.5307818151887326`*^9}, {3.5307818521295977`*^9, 3.530781879180045*^9}, {
   3.5307819414241543`*^9, 3.530781942438156*^9}, {3.5307819824522266`*^9, 
   3.530782019876692*^9}, {3.5307820969096274`*^9, 3.5307821277664814`*^9}, {
   3.530782298683693*^9, 3.530782308964111*^9}, {3.530782757369069*^9, 
   3.530782794107134*^9}, {3.5307864408398323`*^9, 3.5307864734282894`*^9}, {
   3.5307865090899515`*^9, 3.5307865123035574`*^9}}],

Cell[BoxData[
 Graphics3DBox[{
   {RGBColor[0, 0, 1], Opacity[0.3], 
    Polygon3DBox[{{-1, -1, 0}, {1, -1, 0}, {1, 1, 0}, {-1, 1, 0}}]}, 
   {RGBColor[0.5, 0, 0.5], Opacity[0.4], EdgeForm[RGBColor[0.5, 0, 0.5]], 
    Polygon3DBox[{{0.110616, 0.847398, 0.}, {-0.698401, 0.431771, 
     0.}, {-0.698401, -0.275336, 0.}}], 
    Polygon3DBox[{{0.698401, 0.275336, 0.}, {0.110616, 0.847398, 0.}, {
     0.698401, -0.431771, 0.}}], 
    Polygon3DBox[{{0.698401, 0.275336, 0.}, {-0.698401, 0.431771, 0.}, {
     0.110616, 0.847398, 0.}}], 
    Polygon3DBox[{{-0.110616, -0.847398, 0.}, {0.110616, 0.847398, 
     0.}, {-0.698401, -0.275336, 0.}}], 
    Polygon3DBox[{{0.110616, 0.847398, 0.}, {-0.110616, -0.847398, 0.}, {
     0.698401, -0.431771, 0.}}], 
    Polygon3DBox[{{-0.698401, 0.431771, 0.}, {-0.110616, -0.140291, 
     0.}, {-0.698401, -0.275336, 0.}}], 
    Polygon3DBox[{{-0.110616, -0.140291, 0.}, {-0.110616, -0.847398, 
     0.}, {-0.698401, -0.275336, 0.}}], 
    Polygon3DBox[{{-0.110616, -0.847398, 0.}, {-0.110616, -0.140291, 0.}, {
     0.698401, -0.431771, 0.}}], 
    Polygon3DBox[{{-0.110616, -0.140291, 0.}, {0.698401, 0.275336, 0.}, {
     0.698401, -0.431771, 0.}}], 
    Polygon3DBox[{{0.698401, 0.275336, 0.}, {-0.110616, -0.140291, 
     0.}, {-0.698401, 0.431771, 0.}}]}, 
   {RGBColor[0, 0, 1], Opacity[1.], 
    Polygon3DBox[{{0.110616, 0.487688, 0.}, {0.467562, -0.207107, 
     0.}, {-0.565592, -0.207107, 0.}}], 
    Polygon3DBox[{{-0.364015, 0.00001166, 0.}, {0.110616, 0.487688, 
     0.}, {-0.565592, -0.207107, 0.}}], 
    Polygon3DBox[{{0.110616, 0.487688, 0.}, {-0.364015, 0.00001166, 0.}, {
     0.467562, -0.207107, 0.}}], 
    Polygon3DBox[{{0.467562, -0.207107, 0.}, {0.00001204, -0.207107, 
     0.}, {-0.565592, -0.207107, 0.}}], 
    Polygon3DBox[{{0.00001204, -0.207107, 0.}, {-0.364015, 0.00001166, 
     0.}, {-0.565592, -0.207107, 0.}}], 
    Polygon3DBox[{{-0.364015, 0.00001166, 0.}, {0.00001204, -0.207107, 0.}, {
     0.467562, -0.207107, 0.}}]}, 
   {RGBColor[1, 1, 0], Opacity[1.], 
    Arrow3DBox[{{-0.6922090750480392, -0.3556177729199433, 
       0}, {-1.5816930231608166`, -0.8125841896834797, 0}}], 
    Arrow3DBox[{{0.6867629946467922, -0.6683922403742047, 0}, {
      1.4033896117899318`, -1.3658492581193702`, 0}}], 
    Arrow3DBox[{{-1.1571502221292526`*^-7, -0.20710698167249852`, 
       0}, {-6.744360333466259*^-7, -1.2071069816723423`, 0}}], 
    Arrow3DBox[{{-3.251769465863876*^-17, -0.20710699999999987`, 
       0}, {-1.895268476985591*^-16, -1.207107, 0}}], 
    Arrow3DBox[{{-0.6922097362759558, -0.3556167631505697, 
       0}, {-1.5816943892213438`, -0.8125818079566495, 0}}], 
    Arrow3DBox[{{-1.4190343907641155`*^-6, 1.2071060468616035`, 
       0}, {-2.5946016861583614`*^-6, 2.207106046860913, 0}}], 
    Arrow3DBox[{{-0.1869476000330151, 0.18194639782681152`, 
       0}, {-0.9035749765156913, 0.8794026353611508, 0}}], 
    Arrow3DBox[{{-0.18694754908557193`, 0.18194648725727894`, 
       0}, {-0.9035746592226821, 0.8794029984581808, 0}}], 
    Arrow3DBox[{{0.6867646113122015, -0.6683912603938659, 0}, {
      1.403392560180789, -1.3658469098085084`, 0}}], 
    Arrow3DBox[{{1.953137112872995*^-6, 1.2071065809596746`, 0}, {
      3.571169143911757*^-6, 2.207106580958366, 0}}], 
    Arrow3DBox[{{0.2857453794727085, 0.14679951462723098`, 0}, {
      1.1752296551983514`, 0.6037652936926096, 0}}]}, 
   {RGBColor[1, 1, 0], Opacity[0.2], 
    CylinderBox[{{0, 0, -0.01}, {0, 0, 0.01}}, 0.21]}},
  Axes->True,
  AxesEdge->{{-1, 1}, {-1, 1}, {-1, 1}},
  AxesLabel->{
    FormBox["x", TraditionalForm], 
    FormBox["y", TraditionalForm], 
    FormBox["z", TraditionalForm]},
  AxesOrigin->{-1, -1, -0.5},
  Lighting->Automatic,
  PlotRange->{{-1.5, 1.5}, {-1.5, 2.}, {-0.5, 1.5}},
  Ticks->{{{-0.5, 
      FormBox[
       RowBox[{"-", "0.5`"}], TraditionalForm]}, {0, 
      FormBox["0", TraditionalForm]}, {0.5, 
      FormBox["0.5`", TraditionalForm]}}, {{-0.5, 
      FormBox[
       RowBox[{"-", "0.5`"}], TraditionalForm]}, {0, 
      FormBox["0", TraditionalForm]}, {0.5, 
      FormBox["0.5`", TraditionalForm]}}, {{-0.5, 
      FormBox[
       RowBox[{"-", "0.5`"}], TraditionalForm]}, {0, 
      FormBox["0", TraditionalForm]}, {0.5, 
      FormBox["0.5`", TraditionalForm]}, {1, 
      FormBox["1", TraditionalForm]}, {1.5, 
      FormBox["1.5`", TraditionalForm]}}},
  ViewPoint->{0, 0, 4}]], "Output",
 CellChangeTimes->{3.530786745922845*^9}]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1350, 633},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
ShowSelection->True,
FrontEndVersion->"7.0 for Microsoft Windows (64-bit) (February 18, 2009)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[567, 22, 160, 2, 83, "Title"],
Cell[730, 26, 246, 6, 31, "Input"],
Cell[979, 34, 242, 5, 31, "Input"],
Cell[1224, 41, 793, 18, 31, "Input"],
Cell[2020, 61, 302, 7, 31, "Input"],
Cell[2325, 70, 1963, 60, 172, "Input"],
Cell[4291, 132, 736, 20, 52, "Input"],
Cell[5030, 154, 1768, 44, 172, "Input"],
Cell[6801, 200, 1811, 45, 152, "Input"],
Cell[8615, 247, 583, 13, 72, "Input"],
Cell[9201, 262, 591, 13, 72, "Input"],
Cell[9795, 277, 1261, 22, 52, "Input"],
Cell[11059, 301, 1160, 20, 52, "Input"],
Cell[12222, 323, 1148, 20, 52, "Input"],
Cell[13373, 345, 1276, 22, 52, "Input"],
Cell[14652, 369, 550, 13, 52, "Input"],
Cell[15205, 384, 562, 13, 52, "Input"],
Cell[15770, 399, 599, 17, 31, "Input"],
Cell[16372, 418, 713, 19, 31, "Input"],
Cell[17088, 439, 657, 20, 31, "Input"],
Cell[CellGroupData[{
Cell[17770, 463, 4254, 100, 72, "Input"],
Cell[22027, 565, 3511, 71, 383, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[25575, 641, 4149, 96, 72, "Input"],
Cell[29727, 739, 3747, 74, 383, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[33511, 818, 4695, 109, 92, "Input"],
Cell[38209, 929, 3006, 61, 369, "Output"]
}, Open  ]],
Cell[41230, 993, 748, 14, 31, "Input"],
Cell[41981, 1009, 1181, 30, 31, "Input"],
Cell[43165, 1041, 1194, 31, 31, "Input"],
Cell[44362, 1074, 2340, 64, 92, "Input"],
Cell[46705, 1140, 1516, 40, 52, "Input"],
Cell[48224, 1182, 1387, 35, 31, "Input"],
Cell[49614, 1219, 2925, 69, 192, "Input"],
Cell[52542, 1290, 647, 14, 72, "Input"],
Cell[53192, 1306, 2665, 40, 52, "Input"],
Cell[55860, 1348, 764, 14, 31, "Input"],
Cell[56627, 1364, 1656, 36, 31, "Input"],
Cell[58286, 1402, 626, 19, 31, "Input"],
Cell[58915, 1423, 2634, 61, 152, "Input"],
Cell[61552, 1486, 687, 14, 72, "Input"],
Cell[62242, 1502, 1350, 23, 52, "Input"],
Cell[63595, 1527, 778, 15, 52, "Input"],
Cell[CellGroupData[{
Cell[64398, 1546, 4318, 99, 72, "Input"],
Cell[68719, 1647, 5121, 100, 316, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[73877, 1752, 4964, 115, 92, "Input"],
Cell[78844, 1869, 4439, 88, 435, "Output"]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
